object ClientDataModule: TClientDataModule
  OldCreateOrder = True
  Height = 300
  Width = 300
  object Channel: TROSuperTcpChannel
    Host = 'localhost'
    Port = 15001
    AutoReconnect = True
    StoreActive = False
    MaxPackageSize = 33554432
    AckWaitTimeout = 60000
    ServerLocators = <>
    DispatchOptions = []
    Left = 40
    Top = 8
  end
  object Message: TROBinMessage
    UseCompression = False
    Left = 40
    Top = 52
  end
  object RemoteService: TRORemoteService
    Message = Message
    Channel = Channel
    ServiceName = 'SofitSystemService'
    Left = 40
    Top = 96
  end
  object DataStreamer: TDABin2DataStreamer
    Left = 40
    Top = 140
  end
  object RemoteDataAdapter: TDARemoteDataAdapter
    GetSchemaCall.RemoteService = RemoteService
    GetDataCall.RemoteService = RemoteService
    UpdateDataCall.RemoteService = RemoteService
    GetScriptsCall.RemoteService = RemoteService
    RemoteService = RemoteService
    DataStreamer = DataStreamer
    Left = 40
    Top = 184
  end
  object rsLogin: TRORemoteService
    Message = Message
    Channel = Channel
    ServiceName = 'SofitLoginService'
    Left = 100
    Top = 96
  end
  object tblDynamic: TDAMemDataTable
    RemoteUpdatesOptions = [ruoOnPost]
    Fields = <>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rdaDynamic
    BeforePost = tblDynamicBeforePost
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    IndexDefs = <>
    Left = 172
    Top = 126
  end
  object rdaDynamic: TDARemoteDataAdapter
    GetSchemaCall.RemoteService = RemoteService
    GetDataCall.RemoteService = RemoteService
    GetDataCall.MethodName = 'SQLGetData'
    GetDataCall.Params = <
      item
        Name = 'Result'
        DataType = rtBinary
        Flag = fResult
        Value = Null
      end
      item
        Name = 'aSQLText'
        DataType = rtString
        Flag = fIn
        Value = Null
      end
      item
        Name = 'aIncludeSchema'
        DataType = rtBoolean
        Flag = fIn
        Value = Null
      end
      item
        Name = 'aMaxRecords'
        DataType = rtInteger
        Flag = fIn
        Value = Null
      end>
    GetDataCall.Default = False
    GetDataCall.OutgoingTableNamesParameter = 'aTableNameArray'
    GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray'
    GetDataCall.IncomingDataParameter = 'Result'
    GetDataCall.OutgoingIncludeSchemaParameter = 'aIncludeSchema'
    GetDataCall.OutgoingMaxRecordsParameter = 'aMaxRecords'
    UpdateDataCall.RemoteService = RemoteService
    UpdateDataCall.MethodName = 'UpdateBaseTable'
    UpdateDataCall.Params = <
      item
        Name = 'Result'
        DataType = rtBinary
        Flag = fResult
        Value = Null
      end
      item
        Name = 'ATablename'
        DataType = rtString
        Flag = fIn
        Value = Null
      end
      item
        Name = 'Delta'
        DataType = rtBinary
        Flag = fIn
        Value = Null
      end>
    UpdateDataCall.Default = False
    UpdateDataCall.OutgoingDeltaParameter = 'Delta'
    UpdateDataCall.IncomingDeltaParameter = 'Result'
    GetScriptsCall.RemoteService = RemoteService
    RemoteService = RemoteService
    DataStreamer = DataStreamer
    Left = 210
    Top = 126
  end
  object dxSkinController1: TdxSkinController
    NativeStyle = False
    SkinName = 'Seven'
    UseSkins = False
    Left = 180
    Top = 202
  end
  object dmdPower: TdxMemData
    Active = True
    Indexes = <
      item
        FieldName = 'Modal'
        SortOptions = []
      end>
    Persistent.Data = {
      5665728FC2F5285C8FFE3F030000001E000000010006004D6F64616C00020000
      0005000B00507269636556616C6964000200000005000A00436F737456616C69
      6400}
    SortOptions = []
    Left = 220
    Top = 48
    object dmdPowerModal: TStringField
      FieldName = 'Modal'
      Size = 30
    end
    object dmdPowerPriceValid: TBooleanField
      FieldName = 'PriceValid'
    end
    object dmdPowerCostValid: TBooleanField
      FieldName = 'CostValid'
    end
    object dmdPowerCheckValid: TBooleanField
      FieldName = 'CheckValid'
    end
  end
end
